home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / MacApp / MacApp CD Release / MacApp® 2.0.1 Tutorial / Chapter 05 / UIconEdit.p < prev   
Encoding:
Text File  |  1990-10-25  |  1021 b   |  49 lines  |  [TEXT/MPS ]
  1. {Copyright © 1989 by Apple Computer, Inc.  All rights reserved.}
  2.  
  3. UNIT UIconEdit;
  4.  
  5.  
  6. INTERFACE
  7.  
  8.  
  9. USES
  10.     UMacApp;
  11.     
  12.     
  13. CONST kSignature = 'ICED';
  14.       kFileType = 'IDOC'; 
  15.  
  16.  
  17. TYPE 
  18.     TIconApplication = OBJECT(TApplication)
  19.  
  20.         PROCEDURE TIconApplication.IIconApplication(iconFileType: OSType);
  21.             {Initializes the application and globals.}
  22.  
  23.         FUNCTION  TIconApplication.DoMakeDocument(itsCmdNumber: CmdNumber): TDocument; OVERRIDE;
  24.             { Creates a document of type TIconDocument and returns a reference to it.}
  25.  
  26.     END;
  27.  
  28.     TIconDocument = OBJECT(TDocument)
  29.  
  30.         PROCEDURE TIconDocument.IIconDocument;
  31.             { Initializes the document. }
  32.  
  33.         PROCEDURE TIconDocument.Free; OVERRIDE;
  34.             { Frees allocated memory when the document is closed. }
  35.  
  36.         PROCEDURE TIconDocument.DoInitialState; OVERRIDE;
  37.             { Sets the document's data to represent a "new" document. }
  38.  
  39.         PROCEDURE TIconDocument.DoMakeViews(forPrinting: boolean); OVERRIDE;
  40.             { Creates the windows to display the document's data. }
  41.  
  42.     END;
  43.  
  44.  
  45. IMPLEMENTATION
  46.  
  47.     {$I UIconEdit.inc1.p}
  48.  
  49. END.